unit USuplencias;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;

type
<<<<<<< .mine
  TFSuplencias = class(TForm)
    GBEmpSup: TGroupBox;
    LNumEmpSup: TLabel;
    DBENumEmpSup: TDBEdit;
    DBENomEmpSup: TDBEdit;
    LNomEmpSup: TLabel;
    LRfc: TLabel;
    DBERfcEmpSup: TDBEdit;
    GBEmpBase: TGroupBox;
    LNumEp: TLabel;
    DBENumEmp: TDBEdit;
    LNumPlaza: TLabel;
    DBENumPlaza: TDBEdit;
    LPuesto: TLabel;
    DBLCBPuesto: TDBLookupComboBox;
    DBLCBTurno: TDBLookupComboBox;
    LTurno: TLabel;
    GBSuplencia: TGroupBox;
    LMovi: TLabel;
    DBLCBMov: TDBLookupComboBox;
    LMotivo: TLabel;
    DBLCBMotivo: TDBLookupComboBox;
    LInicial: TLabel;
    LFinal: TLabel;
    LPeriodo: TLabel;
    DBCBDias: TDBComboBox;
    LDiasHrs: TLabel;
    BBNuevo: TBitBtn;
    BBModificar: TBitBtn;
    BBCancelar: TBitBtn;
    BBSalir: TBitBtn;
    BBGuardar: TBitBtn;
    Bevel1: TBevel;
    BBAnterior: TBitBtn;
    BBSiguiente: TBitBtn;
    RGDiasHoras: TRadioGroup;
    DBCBHoras: TDBComboBox;
    DBText1: TDBText;
    DBEInicio: TDBEdit;
    DBEFinal: TDBEdit;
    procedure FormActivate(Sender: TObject);
    procedure BBNuevoClick(Sender: TObject);
    procedure BBModificarClick(Sender: TObject);
    procedure BBCancelarClick(Sender: TObject);
    procedure BBSalirClick(Sender: TObject);
    procedure BBAnteriorClick(Sender: TObject);
    procedure BBSiguienteClick(Sender: TObject);
    procedure VerBotAntSig ();
    procedure AbrirTablas ();
    procedure CerrarTablas ();
    procedure ActivarTablas ();
    procedure DesactivarTablas ();
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RGDiasHorasClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBLCBPuestoClick(Sender: TObject);
    procedure DBENumEmpKeyPress(Sender: TObject; var Key: Char);
    procedure DBENumPlazaKeyPress(Sender: TObject; var Key: Char);
    procedure DBERfcEmpSupKeyPress(Sender: TObject; var Key: Char);
    procedure BBGuardarClick(Sender: TObject);
=======
  TFSuplencias = class(TForm)
    GBEmpSup: TGroupBox;
    LNumEmpSup: TLabel;
    DBENumEmpSup: TDBEdit;
    DBENomEmpSup: TDBEdit;
    LNomEmpSup: TLabel;
    LRfc: TLabel;
    DBERfcEmpSup: TDBEdit;
    GBEmpBase: TGroupBox;
    LNumEp: TLabel;
    DBENumEmp: TDBEdit;
    LNumPlaza: TLabel;
    DBENumPlaza: TDBEdit;
    LPuesto: TLabel;
    DBLCBPuesto: TDBLookupComboBox;
    DBLCBTurno: TDBLookupComboBox;
    LTurno: TLabel;
    GBSuplencia: TGroupBox;
    LMovi: TLabel;
    DBLCBMov: TDBLookupComboBox;
    LMotivo: TLabel;
    DBLCBMotivo: TDBLookupComboBox;
    LInicial: TLabel;
    LFinal: TLabel;
    DBEPeriodoIni: TDBEdit;
    DBEPeriodoFin: TDBEdit;
    LPeriodo: TLabel;
    DBCBDias: TDBComboBox;
    LDiasHrs: TLabel;
    BBNuevo: TBitBtn;
    BBModificar: TBitBtn;
    BBCancelar: TBitBtn;
    BBSalir: TBitBtn;
    BBGuardar: TBitBtn;
    Bevel1: TBevel;
    BBAnterior: TBitBtn;
    BBSiguiente: TBitBtn;
    RGDiasHoras: TRadioGroup;
    DBCBHoras: TDBComboBox;
    procedure FormActivate(Sender: TObject);
    procedure BBNuevoClick(Sender: TObject);
    procedure BBModificarClick(Sender: TObject);
    procedure BBCancelarClick(Sender: TObject);
    procedure BBSalirClick(Sender: TObject);
    procedure BBAnteriorClick(Sender: TObject);
    procedure BBSiguienteClick(Sender: TObject);
    procedure VerBotAntSig ();
    procedure AbrirTablas ();
    procedure CerrarTablas ();
    procedure ActivarTablas ();
    procedure DesactivarTablas ();
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RGDiasHorasClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
>>>>>>> .r29
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FSuplencias: TFSuplencias;

implementation

uses UDatamodule, UInicio, URegistro;

{$R *.dfm}

<<<<<<< .mine
procedure TFSuplencias.FormActivate(Sender: TObject);
begin
   ActivarTablas;
   AbrirTablas;
   DBENumEmp.SetFocus;
end;

procedure TFSuplencias.BBNuevoClick(Sender: TObject);
begin
   DBText1.Visible:=False;
   DataModule1.TSuplencias.Append;
   DBENumEmp.SetFocus;
end;

procedure TFSuplencias.BBModificarClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Edit;
end;

procedure TFSuplencias.BBCancelarClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Cancel;
end;

procedure TFSuplencias.BBSalirClick(Sender: TObject);
begin
   DesactivarTablas;
   CerrarTablas;
   Application.Terminate;
end;

procedure TFSuplencias.BBAnteriorClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Prior;
   VerBotAntSig();
end;

procedure TFSuplencias.BBSiguienteClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Next;
   VerBotAntSig();
end;

procedure TFSuplencias.VerBotAntSig();
begin
   BBAnterior.Enabled:= not DataModule1.TSuplencias.Bof;
   BBSiguiente.Enabled:= not DataModule1.TSuplencias.Eof;
end;

procedure TFSuplencias.AbrirTablas ();
begin
   DataModule1.TEmpleados.Open;
   DataModule1.TSuplencias.Open;
   DataModule1.TPuesto.Open;
   DataModule1.TServicio.Open;
   DataModule1.TTurno.Open;
   DataModule1.THorario.Open;
   DataModule1.TCategoria.Open;
end;

procedure TFSuplencias.CerrarTablas ();
begin
   DataModule1.TEmpleados.Close;
   DataModule1.TPuesto.Close;
   DataModule1.TServicio.Close;
   DataModule1.TTurno.Close;
   DataModule1.THorario.Close;
   DataModule1.TSuplencias.Close;
   DataModule1.TCategoria.Close;
end;

procedure TFSuplencias.ActivarTablas ();
begin
   DataModule1.TEmpleados.Active:=True;
   DataModule1.TPuesto.Active:=True;
   DataModule1.TServicio.Active:=True;
   DataModule1.TTurno.Active:=True;
   DataModule1.THorario.Active:=True;
   DataModule1.TSuplencias.Active:=True;
   DataModule1.TCategoria.Active:=True;
end;

procedure TFSuplencias.DesactivarTablas ();
begin
   DataModule1.TEmpleados.Active:=False;
   DataModule1.TPuesto.Active:=False;
   DataModule1.TServicio.Active:=False;
   DataModule1.TTurno.Active:=False;
   DataModule1.THorario.Active:=False;
   DataModule1.TSuplencias.Active:=False;
   DataModule1.TCategoria.Active:=False;
end;

procedure TFSuplencias.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   DesactivarTablas;
   CerrarTablas;
end;

procedure TFSuplencias.RGDiasHorasClick(Sender: TObject);
begin
   if RGDiasHoras.ItemIndex=0 then
      begin
         DBCBDias.Enabled:=True;
         DBCBHoras.Enabled:=False;
      end;
   if RGDiasHoras.ItemIndex=1 then
      begin
         DBCBHoras.Enabled:=True;
         DBCBDias.Enabled:=False;
      end
end;

procedure TFSuplencias.FormCreate(Sender: TObject);
begin
   AbrirTablas();
   ActivarTablas();
end;

procedure TFSuplencias.DBLCBPuestoClick(Sender: TObject);
begin
   DBText1.Visible:=True;
end;

procedure TFSuplencias.DBENumEmpKeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in ['0'..'9',#8])then key:=#0;
end;

procedure TFSuplencias.DBENumPlazaKeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in ['0'..'9',#8]) then key:=#0;
end;

procedure TFSuplencias.DBERfcEmpSupKeyPress(Sender: TObject; var Key: Char);
begin
   while (DBERfcEmpSup.GetTextLen <4) do
      begin
         if not (key in ['a'..'z',#8]) and not (key in ['A'..'Z',#8]) then key:=#0;
         Break;
      end;
   if (DBERfcEmpSup.GetTextLen > 3) and (DBERfcEmpSup.GetTextLen <10) then
      begin
          if not (key in ['0'..'9',#8]) then key:=#0;
      end ;
end;


procedure TFSuplencias.BBGuardarClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Post;
end;

=======
procedure TFSuplencias.FormActivate(Sender: TObject);
begin
   ActivarTablas;
   AbrirTablas;
   DBENumEmp.SetFocus;
end;

procedure TFSuplencias.BBNuevoClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Append;
   DBENumEmp.SetFocus;
end;

procedure TFSuplencias.BBModificarClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Post;
  // DataModule1.TSuplenciasINICIOPERIODO.Text:=MaskEdit1.Text;
end;

procedure TFSuplencias.BBCancelarClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Cancel;
end;

procedure TFSuplencias.BBSalirClick(Sender: TObject);
begin
   DesactivarTablas;
   CerrarTablas;
   Application.Terminate;
end;

procedure TFSuplencias.BBAnteriorClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Prior;
   VerBotAntSig();
end;

procedure TFSuplencias.BBSiguienteClick(Sender: TObject);
begin
   DataModule1.TSuplencias.Next;
   VerBotAntSig();
end;

procedure TFSuplencias.VerBotAntSig();
begin
   BBAnterior.Enabled:= not DataModule1.TSuplencias.Bof;
   BBSiguiente.Enabled:= not DataModule1.TSuplencias.Eof;
end;

procedure TFSuplencias.AbrirTablas ();
begin
   DataModule1.TEmpleados.Open;
   DataModule1.TSuplencias.Open;
   DataModule1.TPuesto.Open;
   DataModule1.TServicio.Open;
   DataModule1.TTurno.Open;
   DataModule1.THorario.Open;
   DataModule1.TCategoria.Open;
end;

procedure TFSuplencias.CerrarTablas ();
begin
   DataModule1.TEmpleados.Close;
   DataModule1.TPuesto.Close;
   DataModule1.TServicio.Close;
   DataModule1.TTurno.Close;
   DataModule1.THorario.Close;
   DataModule1.TSuplencias.Close;
   DataModule1.TCategoria.Close;
end;

procedure TFSuplencias.ActivarTablas ();
begin
   DataModule1.TEmpleados.Active:=True;
   DataModule1.TPuesto.Active:=True;
   DataModule1.TServicio.Active:=True;
   DataModule1.TTurno.Active:=True;
   DataModule1.THorario.Active:=True;
   DataModule1.TSuplencias.Active:=True;
   DataModule1.TCategoria.Active:=True;
end;

procedure TFSuplencias.DesactivarTablas ();
begin
   DataModule1.TEmpleados.Active:=False;
   DataModule1.TPuesto.Active:=False;
   DataModule1.TServicio.Active:=False;
   DataModule1.TTurno.Active:=False;
   DataModule1.THorario.Active:=False;
   DataModule1.TSuplencias.Active:=False;
   DataModule1.TCategoria.Active:=False;
end;

procedure TFSuplencias.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   DesactivarTablas;
   CerrarTablas;
end;

procedure TFSuplencias.RGDiasHorasClick(Sender: TObject);
begin
   if RGDiasHoras.ItemIndex=0 then
      begin
         DBCBDias.Enabled:=True;
         DBCBHoras.Enabled:=False;
      end;
   if RGDiasHoras.ItemIndex=1 then
      begin
         DBCBHoras.Enabled:=True;
         DBCBDias.Enabled:=False;
      end
end;

procedure TFSuplencias.FormCreate(Sender: TObject);
begin
   AbrirTablas();
   ActivarTablas();
end;

>>>>>>> .r29
end.
